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ZTITLE "MOM Serytce file 1/0 modules’ 
MODULE MOMFILEIO ( 
LANGUAGE (BL1S$S$32) 
ADDRESSING_MODE (NONEXTERNAL=LONG_RELATIVE, 


ERNAL = GENERAL), 
IDENT = 'v04-000 
= 
BEGIN 


el lateaeebigeeeaemagiietestadibedsiadinensiseaidmhamnenes clienaatelineiaianieeeaniinmataunia 
'@ 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
's DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hl oe ena RDAN Khow ITH THE TERMS OF SUCH be tane oO AND _o THE 


® 
we 
® 
® 
® 
® 
® 
® 
. 0 \d ® 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
! * 
{x THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 
® 
® 
® 
& 
a 
® 
® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. . 


ie DIGITAL ASSUMES NO RESPONS BILIT 


IBILIT 
t® SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


SRR EERE ARERR AREER EEE EREA RES 
' 


++ 
FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 


' 

i 

i 

i ABSTRACT: 

i This module contains general purpose file access routines 
necessary for manipulating the Load and Dump files for NML. 
ENVIRONMENT: VAX/VMS Operating System 
AUTHOR: Kathy Perko 
CREATION DATE: 11-Jan-1983 

i MODIFIED BY: 

V03-001 MKPO0001 Kathy Perko 12-April-1984 
i 
ie 


Open load files for Leaves read so more than one MOM can 
load the file at a time. 


me a ee ee ed ed wd od od ed dd = = od od od od od 
. 


; 4 ; 1 ZSBTTL ‘Declarations’ 

; 5 : ! 

; 5 6 | TABLE OF CONTENTS: 

: § 0 : .< 

: 60 06 1 FORWARD ROUTINE 

: 61 0 1 MOMSSRVCLOSE, 

; 6¢ 061 1 SSRVOPEN. 

: 6 06¢ 1 MOMSSRVREA 

> 64 063 1 MOMSSRVWRITE 

: 65 064 1 MOMSSRVREWIND; 

3 66 065 ! ; 

: 68 0067 1 ! INCLUDE FILES: 

Bea BS 

ee 0070 1 LIBRARY 'LIB$:MOMLIB.i32'; 

; 2 0071 1 LIBRARY 'SHRLIBS$:NMALIBRY.L32° 

eee 0072 1 LIBRARY 'SYSSLIBRARY:STARLET.L$2": 
| Boa ee ty 

: 76 0075 1 | OWN STORAGE: 

< oe 0076 1: 

;  o8 S078 

: 80 0079 1 MOMST_FAB : $FAB_DECL, ! Image file FAB 
; «281 0080 1 MOMST"RAB : $RAB_DECL; i Image file RAB 
. # boss 1! 

> B4 0083 1 | EXTERNAL REFERENCES: 

: Re boas 1 

: 87 0086 SMOM_EXTERNALS; 

: 89 0088 1 EXTERNAL ROUTINE 

: 90 0089 1 MOMSDEBUG TXT, 

; (91 0090 1 MOMSBLD_REPLY; 

> 92 0091 1 


voe-obe ct nt Mol oe Ream 1f-te ~3een188e 95:08 dy Pee GAA SER Mba seCSmome 1L10.83207% ¢ 
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MOMSSRVCLOSE Close currently opened file 14-Sep-1984 


1 ZSBTTL ‘MOMSSRVCLOSE Close currently opened file’ 
38 GLOBAL ROUTINE MOMSSRVCLOSE = vd 


FUNCTIONAL DESCRIPTION: 


o=<= 

—-> 

x 
pars 


This routine closes the currently opened file. 


i 
' 
: ROUTINE VALUE: 
: COMPLETION CODE: 
i 


Signals errors. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 . 
BEGIN 
LOCAL 
STATUS; !' Temporary return status 


§ 


Close the file. 

STATUS = SCLOSE (FAB = MOMS$T_FAB); 

If the operation was successful then log it. 
IF .STATUS THEN 


MOMSDEBUG_TXT oeert SRVTRC, 
SCIB ("Image file closed.) 


RETURN .STATUS 
END; ! End of MOMSSRVCLOSE 


Pe Se Oe Se Oe Oe Se Oe Oe Se Se Se Oe Se Se Os Se Ss Se Se Ss Os Os Se Ss Oe Oe Os Oe Ss Ss ws 
MINN oe oe oO oO 
URW OOBNA NPWS OOR IER RMU OOO IRR 


ck a a a ad od 2 = dd od 


0 
: 


WN" OOONOUSWN oO 


RIPPIN — tt to 2 os 


TITLE Nervi thy MOM Service file 1/0 modules 


SIDENT \V04 
-PSECT SPLITS,NOWRT,NOEXE,2 
73 6F 6C 63 20 65 6C 69 66 20 65 67 61 6D 49 00000 P.AAB: .ASCII \Image file closed.\ : 
2E 64 65 OOF pee : 
90000012 bo1e P.AAA: .LONG 18 : 
0000000" 00018 “ADDRESS P.AAB : 


.PSECT SOWNS,NOEXE,2 
00000 MOMST_FAB: 


-BLKB 80 
00050 MOMST_RAB: 
-BLK 


68 
~-EXTRN MOMSGL_LOGMASK, MOMSGL_SVD_INDEX 
EXTR E DATA 


Se —-—4 aa 


32 _V4.0-7 4 a 


10 
F 10 MOM Service file 1/0 modules ihese = 4 Page 
vial OSE Cl 14-Se TER: CMOM. SRC MOMFIL10.B32: 1° (3) 


-1 
MOMSSRVCL ose currently opened file : 1 


9be 18:06:52 


EXTRN MOM 


UF bec 
RORSAB™(GOP_c1B 


MOMSAB-MOP_XMIT_BUF 
EXTRN MOMSGQ-MOP~XMIT~BUF_DSC 
EXTRN MOMSAB-MOP—RCV_BUF 

E MOM$GQ~MOP~RCV~BUF_DSC 
MOMSAB_MOP"MSG, MOM$GQ_MOP_MSG_DSC 
MOM$GW~EVT~ CODE 

MOMS p 


+ 10 MOM Service file 1/0 modules 
MOMSSRVCLOSE Close currently opened 


00000000° 
000000006 8 


F 
00000000' 
000000006 98 
; Routine Size: 40 bytes, Routine Base: S$CODES 


; 126 0124 1 


4 
4 


-PSECT 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER: Chom SRC MOMFILIO. B32. had 


“COUNT 
g_TRT, MOMSBLD_REPLY 


seek seal 
ROMS FAB Save R2 


i teenie TXT 


10 
wont ALE IO MOM Service file 1/0 modules ind 1384 9g: 06: 13 VAX-11 Bliss-32 v4.0 
MOMSSRVOPEN Open requested file 1 ~Sep-1 DISKSVMSMASTER: CMOM. she MOMF IL10.832;1 
3; 1 8 125 1 ZSBTTL ‘MOMSSRVOPEN Open re ted file’ 
: ; ; 8 ! GLOBAL ROUTINE MOMSSRVOPEN (FIL AMDS DSC, ACCESS) 
: 4 1 8 1 !+4 
3 3 § 1 1 ! FUNCTIONAL nes toh St 
-. oe 130 1! This routine opens the specified file (if read access) or 
s ; ¢ : 1 ! } creates the file (if read/write access). 
: 4 1 : 1 § FORMAL PARAMETERS: 
2.” | 1 1! F ILNAMDSC Descriptor of the filename to be opened. 
3 : ’ 5 : } ACCESS File access code (read or read/write). 
: 126 ; i SIDE EFFECTS: 
: 14¢ 139 1 Returns the status of the operation. 
; 14 140 1! 
408 De hag 
; 146 128 BEGIN 
OMS 
149 146 FILNAMDSC : REF VECTOR, 
5 139 1? ACCESS : BYTE; 
: 138 149 LOCAL 
3 15 150 STV, ! To save Status Value field. 
: 136 151 MOM_L_STATUS; 
Beg 
: 139 138 Fill in FAB and CREATE/OPEN the file depending on desired access 
: 12) 136 if 5 ty EQLU NMASC_OPN_AC_RW THEN ' Read/write=create file 
: 161 e 0138 SFAB INIT 
; 188 P 0160 FAB = MOMST ' Pointer to FAB 
5 164 P 0161 DNM = *STSBSrSTER: vs" : i Default file name string 
: 165 P 166 FNA = .F c fil. ' Ptr to filname etring 
: 168 P 016 FNS = FILNAMDSE 0), ' Length of filnam strin 
; 16 P 0164 FAC = PUT ! Write access record I/ 
: 168 P 0165 FOP = (cat MXV,SQ0,SUP,TEF), | File open options 
: 199 P 166 MRS = 5 ! Maximum record s 
3 170 P 016 ORG = SEQ, . ' Sequential file. lereetel 
: 1%¢ P 189 RFM = FIX , ! Fixed length records 
: 17 170 ‘ 
; «(174 171 MOM_L_STATUS = SCREATE (FAB _= MOMST_FAB); ! Create the file 
; 19? 76 MY = .MOMST_FAB CFABSL_STV); 
: 177 1% ELSE ate. ! Assume RO (open not create) 
; 179 P 17% BFAB, NIT 
: 181 Pp 178 FAB = MOMST_FAB 1 FAB a ater 
: 1 : P 017 DNM = 'SYSSSYSTEM:.SYS', i Default file name ame string 
% P 180 FNA = .FILNAMDSC fi : i Ptr to filname str ng 
3; (1 P 0181 FNS = .FILNAMDSC (0), i Length of filnam string 


Page 


-_| 


MOM ot STATUS = SCONNECT (RAB = MOMST_RAB); 
STV = .MOMST_RAB CRABSL_STVJ; 


H 10 
10 MOM Service file 1/0 modules 16-Sep-1 :02: VAX-11 Bliss-32 v4.0-7 
+ MOMSSRVOPEN Open requested file 12: “Se Het 7 95:0 2:33 DISKSVMSMASTER: (MOM, sre MOMF IL10.832; 
1 P 01 FAC = GET, ' Read access. record 1/0 
1 P 01 SHR = GET, ' Allow + er MOMs to read it too. 
: ia : : 1” = i Sequential processing only 
1 1 : 
1 1 MOM_L_STATUS = SOPEN (FAB = MOMST_FAB) 
1 1 3 STV = .MOMST_FAB CFABSL_STV); 
: ; END; 
1 191 IF mr L_STATUS THEN 
; 1? EGIN™ . 
1 132 Build the RAB. 
i P 198 - INIT 
P O197 t 
2 138 RAB = MOMST_RAB, ' Associated RAB 
P 200 FAB = MOMST_F AB ' Associated FAB 
0 
98 
04 
05 
09 


If the operation was successful then log it. 


if .MOM_L_STATUS THEN 
"MOMSDEBUG _ TXT (DBGSC SRVTRC, 
SASCIBD (‘Image file opened.*)) 


oo 


NOVEM —OOONOUE WN O00 


i] 
! If the create, open, or connect failed, set up the message block to 
: es an error. 


BEG 
RORSAB -MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD OR 
MSBSM_MSG FLD OR 
MSBSM-MSG2_ FLD; 
MOMSAB_MSGBLOCK (MSBSB_ cope = NMASC sts FOP; 
MOMSAB_MSGBLOCK CMSBSL-TEXT] = .mMOmM C_STATUS; 
ye MSGBLOCK CMSBSL-TEXT2) = .STO;~ 


RETURN .MOM_L_STATUS; 
END; ! End of MOMSSRVOPEN 


SSSVSEARAN LS OSVS ARUN SSSRVRAP UNO OSS IE RRO OOo 


PROPIPOPIPOPIPONINYPNIPYININININININPIPYINININININININPINININY 


PROROMOROPONONNY 2 A es 


~PSECT S$PLITS,NOWRT,NOEXE ,2 


53 59 53 2€ 3A 40 45 54 59 5 4 53 59 OO1C P.AAC: .ASCII \SYSSSYSTEM:.SYS\ 

53 59 $3 2e 3, 4D 45 54 a 3 33 3 33 59 ‘ 4 P.AAD: .ASCII \SYSSSYSTEM:.SYS\ 

6—€ 65 70 6F 20 65 6C 69 66 20 65 67 g! 6D 6 is P.AAF: .ASCII \lmage file opened.\ 
4 «LON 
a “AD 


G 618 
DRESS P.AAF 


A a as 


10 MOM Service file 1/0 module 1b-50 -1 VAX-11 Bliss-32 V4.0-7 
val MOMSSRVOPEN Open requested tite 12-808- 1382 95: 92: 3 DISKSVMSMASTER: (MOM. sre MOMF IL10.832; rqee a 
SRMS_PTR= MOMST_FAB 
RMS-PTR= MOMST"FAB 
RMS-PTR= MOMST-RAB 
-EXTRN SYSSCREATE, SYSSOPEN 


SEXTRN SYSSCONNECT 
-PSECT SCODES,NOWRT,2 
07FC 00000 -ENTRY MOMSSRVOPEN, Save R2,R3,R4,R5,R6,R7,RB,RI,= ; 


A 00000 00 MOVAB RORSAB_n GBLOCK, R10 : 
9 390000 o oP oF 05 MOVAB “RS : 
8 00000000" EF 43 9 MOVAB Sang PTR Rg : | 
6 6 Ac p 1 MOVL FILNARDS c. + 0169 
01 8 aC 1 1B CMPB + 0156 
43 12 OO01F BNEQ : 
0050 8F 00 6E 09 2c 1 MOVCS is (SP), #0, #80, SRMS_PTR : 0169 
6 5003 F B MOVYW of RMS_PTR : 
04 e 10200046 BF 09 $0 € MOVL 4370 sys ants PTR+4 : 
16 AB 1 § MOVB : 
1D AB 94 A CLRB SRA : 
FOO 01 90 00080 MOVE «RI SRMS PTROSI : 
Cc OA 04 Ag DO 00041 MOVL ttROD Set -PTReGG : 
0 A 6 5 MOVAB P. AAC SRMS_ PTR+48 : 
tae 06 BC A MOVB af fl rahe. PTR+52 F 
5 F af MOVB SRM by : 
6 as 0200 BF B 0058 mOVW $5 12, SRMS_PTR+54 : 
8 DD 0005 PUSHL R + 0171 
000000006 00 ! FB 38 CALLS #1, SYSSCREATE : 
0050 = «&F 00 6E 9 2c 64 1%: movcS #0, (SP), #0, #80, SRMS_PTR + 0185 
6 5003 8F 80 MOVW #20485 SRMS_PTR F 
06 =A 40 F OA MOVZBL #64, SAMS PTR+4 F 
16 OA 020 F mOVw =. #514 “sens pTRs22 ; 
1F MOVB PTR+31 ; 
¢ A 4 A p MOVL gif) anh =P TReds F 
A ‘<2 MOVAB ; 
4 A 4 BC MOVB af [thivosc,“$ mn *e rRes2 : 
5 A F MOVB #15, SRMS Pa, R+S ; 
8 0D SHL Rs + 0187 
000000006 &. CALLS #1, SYSSOPEN : 
9 D 28: MOVL RO. MOM_L TATUS F 
oc AB OD MOVL MOMST ft 2, : 0172 
6 3 : BLBC HOML “STA ys. > 0191 
0044 8F 00 bE as. C mOVCS #0,"(SP), # os. SRMS_PTR : 0200 
A ads 8F B0 Vw #17409, SRMS_PTR ; 
o0gc  C 68 9 MOVAB. MOMST_FAB, Sans PTR#60 F 
50 AS OF S HORS T RAB : 0202 
000000006 Q F CALLS #1, SYSSCONNECT ; 
5 D VL = RO, -MOM_L STATUS ; 
5¢ 6A8 OCOD VL MOMST_RABT12, ; ; 020 
5 MOM L-STATUS, : 9 


val ta 


3; Routine Size: 235 bytes, 


ROMSSRVOPEN 


file 1/0 — 
Open requested file 


000000006 00 


; 
¢ f ik 


Routine Base: SCODES + 0028 


a $eoct8s 03:02:12 YAN TT BL fee Be Va OTe eso. g3c0h caf 


PUS 3; 0209 
CALLS fe. MOMSDEBUG_TXT : 
MOVL sig. MOMSAB_MSGBLOCK : 18 
MNEGB #13, MOMSAB-MSGBLOCK+4 : 
MOVG MOM‘L_STATUS, MOMSAB _MSGBLOCK+12 1 
MOVL MOM-L L=STATUS, 3 


0 
Spa19be S:cs5o — DLSKSVMGHASTERSEMOM  SRCIMOMF IL10.83207%" (4S 


pened file’ 
IN BUF, LOAD_FILE) = 


Kk 1 

— 10 MOM Service file 1/0 modules 1973 
MOMSSRVREAD Read a record from the opened file 14-5 

ZSBTTL ‘MOMSSRVREAD Read a record from the 2 


“2 


GLOBAL ROUTINE MOMSSRVREAD (BUFFERDSC, BYTE 


~ 


. 
FUNCTIONAL DESCRIPTION: 


This routine is callee while doing down Line load to get the 
contents of ghe load file (from disk or another node) to send 
to the node being loaded. It reads records from the currently 
opened load file into the specified buffer and return in the 
BYTES_IN_BUF parameter the number of bytes actually read. 


FORMAL PARAMETERS: 
BUF FERDSC Descriptor of the receive buffer. 
BYTES_IN_BUF Word to receive the actual number of bytes read. 
LOAD_FILE Identification of which load file is being loaded 
sags ed tertiary, or operating system). Used 
‘ for signa ling errors. 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns the status of the operation. 
SIDE EFFECTS: 


Fills in the formal parameter BYTES_IN_BUF with the size of data 
actually received. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
BUFFERDSC : REF VECTOR; 


WO 0ONOULS WO 


LOCAL 


! Pointer into read buffer to place to put next record. 
: eytes left in read buffer. 

' Size of Last record read irto buffer. 

! For signalled error message. 


—Oono 


nN as many complete records as will fit into the buffer. The 
as fixed length records. 


RAB fields for the beginning of the read buffer, the read 


5 sz. 


F| 
a 
as 
a 
a 
a 
as 
as 
a 
ra 
A 
ra 
ra 
ra 
Las! 
as 
Las! 
as! 
Las! 
Las! 
‘ast 
La! 
mC 
mC 
aa! 
a 
a! 
NP 
NP 
NF 
Ne 
NF 
NF 
Nh 
NF 
NF 
NP 
NI 
NI 
Ni 
NI 
Ni 
Ni 
Ni 
Ni 
Ni 
Ni 
Ni 
Ni 
Ni 
NI 


he ert 1 
~i~ 
sono 


r size, and the size of the record just read (zero to begin 


e 

) 

R = .BUFFERDSC Ci ! Read buffer address 
/ BUFFERDSC C03; ! Read buffer size 


Be Se Se Fe Se Se Ge Fe Ge Se Fe Se Se Ge Se Ge Se Se Se Se Se Be Se Se Ge Ge Se Ge Ge Ge Se Se Se Se Se Se Se Se Ss Se Se Se HSH Se Se eee Se Ge Ge Ge Ge Ge Ge Ge Ge 
AAS FOO 
APES Soe 


all 


Se Se Fe Ge Se Se Se Se Ge Se Ge Ge Se Ge Ge Ge Se Fe Se Ge Ge Ge Se Ge Ge Se Se Ss Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Ge @eece 


oO 
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we 
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<4 
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BEGIN 
MOMS RAB FRABSL UBF = .BUF_PTR: 

RABSW-USZ] = .BUF-LEFT; 
MOM_L-STATUS = SGET (RAB = MOMST_RAB); 
IF -MOM_L_STATUS 


THEN 
BEGIN 
BYTES _IN_REC = .MOMST_RAB CRABSW_RSZ); 
BUF _LEFT"= .BUF_LEFT = .BY IN 3 
Bur pra = .BUF_PTR + .BYTES_IA_REC; 
ELSE 


I 
IF jery 


L.STATUS EQL RMS$_EOF) AND 
PTR GTR .BUFFERDSC (1]) THEN 


TATUS = SUCCESS; 


SG_FLD 


MOMSAB_MSGBLOCK CMSB$B_CODE] 
MOMSAB-MSGBLOCK CMSBSW_DETAIL] = .LOAD-FILE; 
MOMSAB K CMSBSL 


(MOMSAB_ASGBLOCK, MSGSIZE) 


Set up actual number of bytes read into read buffer. 


IN_BUF)<0,16> = .BUF_PTR - .BUFFERDSC (1); 
MOM_L_STATUS 


(.BYTES_ 
RETURN [MOR_ 
ND; ! End of MOMSSRVREAD 


REPLY » : 
$SIGNAL “ASG (MOMSAB_NICE_XMIT_BUF, .MSGSIZE); 


VAX-11 Bliss-32 V4.0-74 


' Read buffer address 
: Read buffer size 


! If there was an error check to see if it was EOF. If it was, 
! and there is data in the read buffer, return the data to the 
caller. Otherwise, signal an error and quit the load. 


MOMSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD OR 
= NAASC"STS FIO; 


“TEXT) = .MOM_C STATUS: 
MSBSL-TEXT2] = .MOMST RAB CRABSL_STV); 


SYSSGET 
MOMS SRVREAD Save R2,R3,R4,R5,R6,R7,RB 
MOMST RAB+36, RB 

MOMSAB_MSGBLOCK, R7 

a4, SP 

BUFFERDSC, R2 


Sete Se Ge Ge 


f -Sep-1984 :02: 1 Page 11 
Read a record from the opened file 1 ~3007 138% 95:02:43 DI SKSVMGHASTERSLMOM SRCSMOMF1L10.83264° (3) 
f chore ts room in the buffer for another complete record, then 


POVNVNYV 


Wo2aNns 


m 10 
FILEIO MOM Service file 1/0 modules 16-Sep-1984 02:02: VAX-11 Bliss-32_ V4.0-74 Page . 
yoo MOMSSRVREAD Read a record from the opened file 12-808-1382 95:02:13 DL SKSVMGHASTERSEMOM SRCSMOMFIL10.83267" (33 
54 06 A2 D0 17 MOVL 4(R2), BUF _PTR F 
4 D 18 MOVL  (R2), BUF _CEFT : 028 
D4 0001 CLRL  BYTES_IN_REC : 028 
53 5 D4 1$ CPL 8 F_LEFT> BYTES_IN_REC : 0288 
68 5 09 MOVL § BUF_PTR, MOMST RAB+36 : 0290 
ain oc AS SF O05 PUSHAB Bur stent a : 0592 
000000006 Q 1 F F CALLS ae SYSS$GET : 
Q D MOV RO, MOM_L_STATUS : 
¢ : BLBC MOM L STATUS. $ + 0293 
FE OA MOVZ2WL MOMST-RAB+34, BYTES_IN_REC ; % 
& 3 t 4 SUBL g BYTES-IN_REC, BUF_LEFT + 029 
4 ¢ 4 ADDLe BYTES-IN-REC, BUF-PTR : 98 
08 1 6 BRB 1$ : 029 
0001827A BF p] 0048 2$: CMPL  MOM_L_STATUS, #98938 : 0307 
B : 004F BNEQ 3$ : 
06 A2 4 0D 9091 CMPL BUF _PTR, 4(R2) : 0308 
5 15 328 BLEQ 3 
55 1 06 905 MOVL #1, MOM_L_STATUS + 0310 
7 11 0005A BRB 4$ : 0309 
67 0 pO 005¢ 3$: MOVL #6, MOMSAB_MSGBLOCK : 0315 
04 Az 1 005F .  MNEGB #18, MOMSAB_MSGBLOCK+4 + 0317 
08 A7 0c At 8B 0063 MOVW LOAD_FILE, MOMS$AB_MSGBLOCK+8 : 0318 
OC AZ 55 D0 000 MOVL MOM C_STATUS, MOMSAB_MSGBLOCK+12 ; 0319 
10 A7 6 as 00 Sper MOVL MOMST-RAB+12, MOMSAB_MSGBLOCK+16 : 0320 
4080 8F 6B 00071 PUSHR #*M<R7,SP> ; 0321 
000000006 00 02 FB 00075 CALLS #2, MOMSBLD_REPLY : 
6E oD 0007C PUSHL MSGSIZE : 0322 
000000006 00 9F 0007E PUSHAB $AB_NICE_XMIT_BUF ; 
02070000 i DD 00084 PUSHL  #34013784 : 
000000006 00 3 FB OOOBA CALLS #3, LIBSSIGNAL ; 
8D 11 00091 BRB : 0288 
08 BC 54 04 Ag A3 00093 4$: SUBW3 4(R2), BUF_PTR, @BYTES_IN_BUF : 0329 
50 55 pO 00099 MOVL MOM_L_STATOS, RO : 0330 
04 0009¢ RET : 0331 


; Routine Size: 157 bytes, Routine Base: $CODES + 0113 


“aw 


De 
be | 
< 
~ 

—om 

48 


5s 1/0 modul 


&3 


ZSBTTL ‘MOMSSRVWRITE Write record in currently opened file’ 
GLOBAL ROUTINE MOMSSRVWRITE (BUFADR, BUFLEN) 


; 5 lee 
; FUNCTIONAL DESCRIPTION: 
: : 8 i This routine writes out the buffer specified to the currently 
: ¢ 4 H opened file. 
; 46 1 1 | FORMAL PARAMETERS: 
: § Q i BUF ADR The address of buffer to be written 
; 2 : BUFLEN The length of buffer to be written 
3 ? § ] | SIDE EFFECTS: 
3 38 0 rt Returns the status of the operation. 
: 355 0350 1 i-- 
3 28 0351 
3; 3 8 26 
; 358 5 
; 359 54 
3 : 2? 
; é 2$ 
3 58 
5 : 2 

66 61 Fill in the user buffer address and size 

68 re MOMST RAB CRABSL_RBFJ = .BUFADR; 

9 MOMST “RAB CRABSW_ -RSZJ = .BUFLEN; 


NO 


o 


7 Write the record and return the status. 


STATUS = $PUT (RAB = MOMST RAB) ; 
IF NOT «STATUS THEN 


If there was an error, then signal it and quit the load. 


BEGIN 

MOMSAB_MSGBLOCK CMSBSL_FLAGS] = MSBSM_DET_FLD OR 
MSBSM~MSG_FLD; 

NMASC STS-FIOF 


SSESTS 


SOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
BUFLEN : WORD; 
LOCAL 
STATUS 
MSGSIZE; 
MOMSAB -MSGBLOCK msBse_ CODE 
MOM GB 12) = 


SOOCOOCOCOCOOCOCOOOOOOOOOoOoOoOoOoOoOoOoOOOoOO 


WO OONOUS WN —O0M 


OODwmoyNNNYNNNS 


WWWAWAAAA AWW 


END; 
RETURN STATUS; 
END; ! End of MOMSSRVWRITE 


~EXTRN SYSSPUT 


Write record "Fn currently opened 1 1$-ep-1964 93: 9e 3 DISK SVMSHASTE ae chOMe SRCSMOMF ILIO. a32:4 F 


; Routine Size: 


Ai 1/0 modules 


00iC 

$s SOSHESS AS 
64 Se AC s 

FA AG : AC 8 

D AG fF 

000000006 ; 3 4 
4 

. 8 a 
oe A 5 oF 
See a 
000000006 00 02 4 
898000006 i OF 

02070000 F DD 

000000006 00 3 FB 
50 2 ? 


Routine Base: S$CODE$ + 0180 


Write record in currently opened 


pee ee ee fee lelelelolololololololololelo) 


SOOQOCOOCOOCOOOCOOOCOOoOOOoOoOoO 


Be 93 geiey Tee Ghlet eRe HGaCshcSmome 1n10.832°% 


MOMSSRVURITE, Save R2,R3.R4 
MOMST_RAB+40, R4 
MOMSAB_MSGBLOCK, R3 


BUFADR, MOM$T_RAB+40 
BUFLEN, MOMST-RAB+34 
MOMST RAB 


K+4 
OCKk+12 
MOMST_RAB+12, POMSAB_MSGBLOCK+16 
#*M<R3,SP> 
#2, MOMSBLD_REPLY 


M ae NICE_XMIT_BUF 
4013784 

#3, LIBSSIGNAL 
STATUS, RO 


= 
wow 
aw 


Bete Se Be Se Se Se Be Be Be Be He Ge Fe Be Se Se Ge Se Se Be Se 


11 
FILE1O MOM Service file 1/0 modules 1b-se =1984 02:02:19 VAX-11 Bliss-32 
WOeLOO8 MOMSSRVREWIND Rewind currently open file 12-08-1382 95:08:13 DISKSVMSMASTER 
: 4 1 SSBTTL noesaverul® Rewind currently open file’ 
: 4! 5 } GLOBAL ROUTINE MOMSSRVREWIND = 
: 38 3 1 !+4 
; 9¢ 3 : FUNCTIONAL DESCRIPTION: 
3 Be ay : ! This routine rewinds the currently open file. 
: 398 3 1 | SIDE EFFECTS: 
; 399 93 1! 
; 400 9% «1S! Returns the status of the operation. 
; 401 95 1! 
; 4 ¢ 36 1 !-- 
; 40 0397 1 
; 404 0 38 BEGIN 
: 405 039 
; 406 0409 ! 
: 407 eet ! Rewind the file 
; 408 186 ! 
; ret ot RETURN SREWIND (RAB = MOMS$T_RAB) 
: 411 0405 1 END; ! End of MOMS$SRVREWIND 
-EXTRN SYSSREWIND 
00 ENTRY MOMSSRVREWIND, Save nothing 


» * 9000 000 
00000000" EF 9 90002 PUSHAB 
000000006 00 1 FB 00008 


CALLS #1, SYSS$REWIND 
RET 


; Routine Size: 16 bytes, Routine Base: S$CODES + 0210 | 


iy 
:CMOM. SRC JMOMF IL 10.832; 


Pp 


age 
79 


0385 
0403 


0405 


~-EXTRN LIBSSIGNAL 
PSECT SUMMARY 


; Name Bytes Attributes 

: SOWNS 148 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: $PLITS 84 NOVEC.NOWRT. RD .NOEXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 
: $CODES 544 NOVEC,NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


: eecceececn Symbols woceceoce Pages Processing 
5 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(MOM.OBJJMOMLIB.L3 194 19 9 21 00:00.1 
; -$ 3aEDUA 8:(SH MRL IBJNMAL TERY -b 5) -4 887 3 0 47 00:00.2 
; 7$255$0UA28:CSYSLIBISTARLET.L32;1 9776 81 0 581 00:02.1 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MOMF ILIO/OBJ=OBJ$:MOMFILIO MSRC$:MOMF ILIO/UPDATE=(ENHS:MOMF ILIO) 
3; Size: 544 code + 232 data bytes 

; Run Time : 

3 assed’ Tine: 09 43.6 

3; Lines/CPU Min: $368 

3 ema he Made | 3°72 

3; Memor ft Used: 3 pages 

3; Compilation ma... 


D 11 
F 10 MOM Service file 1/0 modules 16-Sep-1984 02:0 VAX-11 Bliss-32 V4.0-74 
vou MOMSSRVREWIND Rewind currently open file 14- ~hep -1 1382 95: 99: 3 Disk SVMSMASTER: CMOM. SRC JMOMF ILIO. B32, 79 
; 41 1 EN ! 
$7 beg? } END End of module 
; 415 408 0 ELUDOM 


023 -BT13A-SE DIGITAL EQUIPMENT CORPORA 
VAX/VMS V4.0 ? CONFIDENTIAL -AND PROPRIET 


TION 
ARY 


